home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tf.d64 / alphadot.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  18KB  |  468 lines
  1. 4 REM ***ALPHADOT*** BY BOB BAXTER
  2. 5 BO=14:BK=6:DT=1:T=1:POKE53281,BK:POKE53280,BO:PRINT"
  3. 10 [141]5000:[134]N(1292):[129]CT[178]0[164]1292:[135]N(CT):[130]
  4. 15 [134]S(324),S$(12):[129]CT[178]0[164]324:[135]S(CT):[130]:[129]CT[178]0[164]12:[135]S$(CT):[130]
  5. 17 SO[178]54272:[151]SO[170]24,15:[141]650:[141]6000
  6. 20 [153]"LOAD"[199](14);[166]15);" ATN(null)(null)LEFT$ATNSTR$(null)(null) WAIT":[153][166]15)"(null)ATNRIGHT$(null)CLOSE(null)VAL(null)(null)
  7. 25 PRINT"[208]LEASE SELECT:
  8. 30 [153]"1. LETTERS AND NUMBERS":[153]"2. SPELL WITH DOTS
  9. 32 PRINT"3. SHAPES":PRINT"4. DOT DRAWING":PRINT"5. DOT MATH
  10. 34 [153]"6. COLOR SELECTION":[153]"7. END
  11. 40 PRINT"[208]RESS <_> TO RETURN TO THE MENU.":Z=RND(-TI)
  12. 50 GETA$:IFA$=""THEN50
  13. 60 IFA$="1"ORA$="!"THENGOSUB5200:PRINT"[147]"CHR$(142):GOTO100
  14. 70 IFA$="2"ORA$=CHR$(34)THENGOSUB5400:PRINT"[147]"CHR$(142):GOTO300
  15. 72 IFA$="3"ORA$="#"THENGOSUB5600:PRINT"[147]"CHR$(142):GOTO700
  16. 74 IFA$="4"ORA$="$"THENGOSUB5700:PRINT"[147]"CHR$(142):GOTO800
  17. 76 IFA$="5"ORA$="%"THENGOSUB5800:PRINT"[147]":GOTO4000
  18. 78 IFA$="6"ORA$="&"THENPRINT"[147]":GOTO900
  19. 80 IFA$="7"ORA$="'"THENPRINT"[147]":POKE54296,0:PRINTCHR$(142):END
  20. 81 FORX=LE%TOL
  21. 90 GOTO50
  22. 100 GETC$:IFC$=""THEN100
  23. 110 IFC$=CHR$(95)THEN20
  24. 120 IFC$=CHR$(32)ORC$=CHR$(160)THEN170
  25. 130 C=ASC(C$):IFC<33ORC>218THEN100
  26. 135 IFC>32ANDC<42THEN165
  27. 140 IFC>47ANDC<58THEN180
  28. 150 IFC>64ANDC<91THEN190
  29. 155 IFC>192THEN185
  30. 160 GOTO100
  31. 165 LE%=20*(C-32):GOTO200
  32. 170 LE%=INT(62*RND(1))*20:GOTO200
  33. 180 LE%=20*(C-48):GOTO200
  34. 185 LE%=20*(C-193)+720:GOTO200
  35. 190 LE%=20*(C-65)+200
  36. 200 L=LE%+19
  37. 210 PRINT"[147]":FORX=LE%TOL:IFN(X)=0THENX=L:NEXT:GOSUB650:GOTO230
  38. 220 POKE55672+N(X),DT:POKE1400+N(X),81:GOSUB600:NEXT:GOSUB650
  39. 230 GETC$:IFC$=""THEN230
  40. 240 GOTO110
  41. 300 S=40
  42. 310 GETC$:IFC$=""THEN310
  43. 320 IFC$=CHR$(13)ORC$=CHR$(141)THEN500
  44. 330 IFC$=CHR$(95)THEN20
  45. 340 IFC$=CHR$(19)ORC$=CHR$(147)THENPRINT"[147]":GOTO300
  46. 345 IFC$=CHR$(32)ORC$=CHR$(160)THENS=S+7:IFS=82ORS=402THENS=S+278
  47. 347 IFS>=722THENPRINT"[147]":GOTO300
  48. 350 C=ASC(C$):IFC<33ORC>218THEN310
  49. 360 IFC>32ANDC<42THEN385
  50. 370 IFC>47ANDC<58THEN390
  51. 375 IFC>64ANDC<91THEN395
  52. 377 IFC>192THEN393
  53. 380 GOTO310
  54. 385 LE%=20*(C-32):GOTO410
  55. 390 LE%=20*(C-48):GOTO410
  56. 393 LE%=20*(C-193)+720:GOTO410
  57. 395 LE%=20*(C-65)+200
  58. 410 L=LE%+19
  59. 420 FORX=LE%TOL:IFN(X)=0THENX=L:NEXT:GOSUB650:GOTO440
  60. 430 POKE55295+S+N(X),DT:POKE1023+S+N(X),81:GOSUB600:NEXT:GOSUB650
  61. 440 GETC$:IFC$=""THEN440
  62. 450 IFC$=CHR$(13)ORC$=CHR$(141)THEN500
  63. 460 IFC$=CHR$(32)ORC$=CHR$(160)THENS=S+7:GOTO475
  64. 470 S=S+7
  65. 475 IFS=82ORS=402THENS=S+278
  66. 480 IFS>=722THENPRINT"[147]":S=40
  67. 490 GOTO330
  68. 500 IFS<80THENS=360:GOTO310
  69. 510 IFS<400THENS=680:GOTO310
  70. 520 PRINT"[147]":GOTO300
  71. 600 POKESO,75:POKESO+1,34:POKESO+5,17:POKESO+6,129:POKESO+4,129:POKESO+4,128:RETURN
  72. 650 POKESO,30:POKESO+1,134:POKESO+5,48:POKESO+6,129:POKESO+4,17
  73. 660 FORY=1TO150:NEXTY:POKESO+4,16:FORY=1TO20:NEXTY:RETURN
  74. 700 GETC$:IFC$=""THEN700
  75. 710 IFC$=CHR$(95)THEN20
  76. 720 IFC$=CHR$(32)ORC$=CHR$(160)THEN750
  77. 721 IFC$="S"ORC$="[211]"THENLE%=0:GOTO755
  78. 722 IFC$="T"ORC$="[212]"THENLE%=25:GOTO755
  79. 723 IFC$="R"ORC$="[210]"THENLE%=50:GOTO755
  80. 724 IFC$="D"ORC$="[196]"THENLE%=75:GOTO755
  81. 725 IFC$="H"ORC$="[200]"THENLE%=100:GOTO755
  82. 726 IFC$="L"ORC$="[204]"THENLE%=125:GOTO755
  83. 727 IFC$="A"ORC$="[193]"THENLE%=150:GOTO755
  84. 728 IFC$="C"ORC$="[195]"THENLE%=175:GOTO755
  85. 729 IFC$="P"ORC$="[208]"THENLE%=200:GOTO755
  86. 730 IFC$="O"ORC$="[207]"THENLE%=225:GOTO755
  87. 731 IFC$="I"ORC$="[201]"THENLE%=250:GOTO755
  88. 732 IFC$="X"ORC$="[216]"THENLE%=275:GOTO755
  89. 733 IFC$="G"ORC$="[199]"THENLE%=300:GOTO755
  90. 737 IFC$="^"ORC$=CHR$(222)THENGOSUB792
  91. 738 GOTO700
  92. 750 LE%=INT(13*RND(1))*25
  93. 755 LE=LE%/25:L=LE%+24
  94. 760 PRINT"[147]":FORX=LE%TOL:IFS(X)=0THENX=L:NEXT:GOSUB650:GOTO780
  95. 770 POKE55671+S(X),DT:POKE1399+S(X),81:GOSUB600:NEXT:GOSUB650:GOTO780
  96. 780 FORX=20TO22:POKE214,X:PRINT:PRINTSPC(11)"                 [146]";:NEXT
  97. 785 FORX=1TO3000:NEXT:POKE214,21:PRINT:PRINTSPC(14)""S$(LE)"[146]":GOSUB650
  98. 790 GETC$:IFC$=""THEN790
  99. 791 GOTO710
  100. 792 PRINT"       ****** SHAPES MENU ******
  101. 793 [153]" SWAITQUARE","TWAITRIANGLE","RWAITECTANGLE","DWAITIAMOND"," HWAITEART",
  102. 794 [153]"LWAITINE","AWAITRROW","CWAITROSS"," PWAITENTAGON","OWAITVAL","CIWAITRCLE",
  103. 795 [153]"HEXWAITAGON"," OCTAGWAITON":[142]
  104. 800 [153]"LOAD":S[178]500:SC[178]1024:CO[178]55296:S1[178]500
  105. 810 P[178]255[171][194](56320):J0[178][171]((P[175]8)[178]8):J1[178][171]((P[175]2)[178]2):J2[178][171]((P[175]4)[178]4)
  106. 813 J3[178][171]((P[175]1)[178]1):FB[178][171]((P[175]16)[178]16):DO[178]81:[139]FB[167]DO[178]32
  107. 815 [151]CO[170]S,DT:[151]SC[170]S,81:[129]X[178]1[164]9:[130]:[151]SC[170]S,DO
  108. 820 [139]J0[167]S[178]S[170]1:[139][181](S[173]40)[178]S[173]40[167]S[178]S[171]40
  109. 825 [139]J2[167]S[178]S[171]1:[139][181]((S[170]1)[173]40)[178](S[170]1)[173]40[167]S[178]S[170]40
  110. 830 [139]J1[167]S[178]S[170]40:[139]S[177]999[167]S[178]S[171]1000
  111. 835 [139]J3[167]S[178]S[171]40:[139]S[179]0[167]S[178]S[170]1000
  112. 840 [161]A$:[139]A$[178]"_"[167]20
  113. 845 [139]A$[178]""[176]A$[178]"LOAD"[167][153]"LOAD
  114. 850 IFS<>S1ANDDO<>32THENGOSUB600
  115. 855 S1=S:POKESC+S,32:GOTO810
  116. 900 PRINTCHR$(142):REM COLOR
  117. 905 S=83:FORX=760TO772:GOSUB985:NEXT
  118. 910 S=S+7:FORX=1000TO1015:GOSUB985:NEXT
  119. 915 S=S+7:FORX=940TO950:GOSUB985:NEXT
  120. 920 S=S+7:FORX=1000TO1015:GOSUB985:NEXT
  121. 925 S=S+7:FORX=1060TO1077:GOSUB985:NEXT:GOSUB650
  122. 930 PRINT""TAB(240)TAB(201)"PRESS:[157][157][157][157][157]<F1/F2> TO CHANGE THE BORDER COLOR
  123. 935 [153]"<F3/F4> TO CHANGE THE BACKGROUND COLOR
  124. 940 PRINT"[145]<F5/F6> TO CHANGE THE DOT COLOR
  125. 945 [153]"<F7/F8> TO CHANGE THE TEXT COLOR
  126. 947 PRINT"  <_>   TO RETURN TO THE MENU
  127. 950 [161]C$:[139]C$[178]""[167]950
  128. 952 [139]C$[178]"_"[167]20
  129. 954 [139]C$[178]"INPUT"[176]C$[178]"GOTO"[167]BO[178]BO[170]1:[139]BO[177]15[167]BO[178]0
  130. 956 [151]53280,BO:[139]C$[178]"DIM"[176]C$[178]"RUN"[167]BK[178]BK[170]1:[139]BK[177]15[167]BK[178]0
  131. 958 [151]53281,BK:[139]C$[178]"READ"[176]C$[178]"IF"[167]DT[178]DT[170]1:[137]962
  132. 960 [137]965
  133. 962 [139]DT[177]15[167]DT[178]0
  134. 964 [137]900
  135. 965 [139]C$[178]"LET"[176]C$[178]"RESTORE"[167]T[178]T[170]1:[137]967
  136. 966 [137]950
  137. 967 [139]T[177]15[167]T[178]0
  138. 968 [139]T[178]0[167][153]"STOP":[137]930
  139. 969 [139]T[178]1[167][153]"":[137]930
  140. 970 [139]T[178]2[167][153]"":[137]930
  141. 971 [139]T[178]3[167][153]"OPEN":[137]930
  142. 972 [139]T[178]4[167][153]"CLR":[137]930
  143. 973 [139]T[178]5[167][153]"":[137]930
  144. 974 [139]T[178]6[167][153]"":[137]930
  145. 975 [139]T[178]7[167][153]"SYS":[137]930
  146. 976 [139]T[178]8[167][153]"FOR":[137]930
  147. 977 [139]T[178]9[167][153]"VERIFY":[137]930
  148. 978 [139]T[178]10[167][153]"DEF":[137]930
  149. 979 [139]T[178]11[167][153]"POKE":[137]930
  150. 980 [139]T[178]12[167][153]"PRINT#":[137]930
  151. 981 [139]T[178]13[167][153]"PRINT":[137]930
  152. 982 [139]T[178]14[167][153]"CONT":[137]930
  153. 983 [139]T[178]15[167][153]"LIST":[137]930
  154. 985 [151]55295[170]S[170]N(X),DT:[151]1023[170]N(X)[170]S,81:[141]600:[142]
  155. 998 [143]
  156. 999 [143]********** NUMBERS **************
  157. 1000 [131]3,2,41,81,121,161,201,242,243,244,205,165,125,85,45,4,84,123,162,0
  158. 1010 [131]42,3,43,83,123,163,203,243,242,244,0,0,0,0,0,0,0,0,0,0
  159. 1020 [131]41,2,3,4,45,85,124,163,202,241,242,243,244,245,0,0,0,0,0,0
  160. 1030 [131]41,2,3,4,45,85,124,123,165,205,244,243,242,201,0,0,0,0,0,0
  161. 1040 [131]4,43,82,121,122,123,124,125,44,84,164,204,244,0,0,0,0,0,0,0
  162. 1050 [131]5,4,3,2,1,41,81,82,83,84,125,165,205,244,243,242,201,0,0,0
  163. 1060 [131]45,4,3,2,41,81,121,161,201,242,243,244,205,165,124,123,122,0,0,0
  164. 1070 [131]1,2,3,4,5,45,84,123,163,203,243,0,0,0,0,0,0,0,0,0
  165. 1080 [131]3,2,41,81,122,123,124,85,45,4,161,201,242,243,244,205,165,0,0,0
  166. 1090 [131]124,123,122,81,41,2,3,4,45,85,125,165,205,244,243,242,201,0,0,0
  167. 1148 [143]
  168. 1149 [143]*****LOWER CASE LETTERS*********
  169. 1150 [131]124,123,122,161,201,242,243,244,245,205,165,125,85,44,43,42,0,0,0,0
  170. 1160 [131]41,81,121,161,201,241,122,123,124,165,205,244,243,242,0,0,0,0,0,0
  171. 1170 [131]85,84,83,82,121,161,201,242,243,244,245,0,0,0,0,0,0,0,0,0
  172. 1180 [131]45,85,125,165,205,245,124,123,122,161,201,242,243,244,0,0,0,0,0,0
  173. 1190 [131]162,163,164,165,125,84,83,82,121,161,201,242,243,244,245,0,0,0,0,0
  174. 1200 [131]85,44,43,82,122,162,202,242,121,123,124,0,0,0,0,0,0,0,0,0
  175. 1210 [131]84,83,82,121,161,202,203,204,165,125,85,205,245,284,283,282,281,0,0,0
  176. 1220 [131]41,81,121,161,201,241,162,123,124,165,205,245,0,0,0,0,0,0,0,0
  177. 1230 [131]123,163,203,243,43,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  178. 1240 [131]125,165,205,245,284,283,242,45,0,0,0,0,0,0,0,0,0,0,0,0
  179. 1250 [131]41,81,121,161,201,241,84,123,162,163,204,245,0,0,0,0,0,0,0,0
  180. 1260 [131]43,83,123,163,203,243,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  181. 1270 [131]81,121,161,201,241,82,123,163,203,243,84,125,165,205,245,0,0,0,0,0
  182. 1280 [131]81,121,161,201,241,122,83,84,125,165,205,245,0,0,0,0,0,0,0,0
  183. 1290 [131]83,82,121,161,201,242,243,244,205,165,125,84,0,0,0,0,0,0,0,0
  184. 1300 [131]81,121,161,201,241,281,82,83,84,125,165,204,203,202,0,0,0,0,0,0
  185. 1310 [131]85,125,165,205,245,285,84,83,82,121,161,202,203,204,0,0,0,0,0,0
  186. 1320 [131]81,121,161,201,241,122,83,84,125,0,0,0,0,0,0,0,0,0,0,0
  187. 1330 [131]85,84,83,82,121,162,163,164,205,244,243,242,241,0,0,0,0,0,0,0
  188. 1340 [131]42,82,122,162,202,243,244,205,81,83,84,0,0,0,0,0,0,0,0,0
  189. 1350 [131]81,121,161,201,242,243,204,85,125,165,205,245,0,0,0,0,0,0,0,0
  190. 1360 [131]81,121,161,202,243,204,165,125,85,0,0,0,0,0,0,0,0,0,0,0
  191. 1370 [131]81,121,161,201,241,202,163,204,245,205,165,125,85,0,0,0,0,0,0,0
  192. 1380 [131]81,122,163,204,245,85,124,202,241,0,0,0,0,0,0,0,0,0,0,0
  193. 1390 [131]81,121,161,202,203,204,165,125,85,205,245,284,283,282,281,0,0,0,0,0
  194. 1400 [131]81,82,83,84,85,124,163,202,241,242,243,244,245,0,0,0,0,0,0,0
  195. 1498 [143]
  196. 1499 [143]********UPPER CASE LETTERS*******
  197. 1500 [131]241,201,161,121,81,42,3,44,85,125,165,205,245,122,123,124,0,0,0,0
  198. 1510 [131]1,41,81,121,161,201,241,2,3,4,45,85,124,123,122,165,205,244,243,242
  199. 1520 [131]45,4,3,2,41,81,121,161,201,242,243,244,205,0,0,0,0,0,0,0
  200. 1530 [131]1,41,81,121,161,201,241,2,3,4,45,85,125,165,205,244,243,242,0,0
  201. 1540 [131]1,41,81,121,161,201,241,2,3,4,5,122,123,124,242,243,244,245,0,0
  202. 1550 [131]1,41,81,121,161,201,241,2,3,4,5,122,123,124,0,0,0,0,0,0
  203. 1560 [131]45,4,3,2,41,81,121,161,201,242,243,244,205,165,125,124,123,0,0,0
  204. 1570 [131]1,41,81,121,161,201,241,5,45,85,125,165,205,245,122,123,124,0,0,0
  205. 1580 [131]3,43,83,123,163,203,243,2,4,242,244,0,0,0,0,0,0,0,0,0
  206. 1590 [131]4,44,84,124,164,204,243,242,201,3,5,0,0,0,0,0,0,0,0,0
  207. 1600 [131]1,41,81,121,161,201,241,5,44,83,122,163,204,245,0,0,0,0,0,0
  208. 1610 [131]1,41,81,121,161,201,241,242,243,244,245,0,0,0,0,0,0,0,0,0
  209. 1620 [131]1,41,81,121,161,201,241,42,83,44,5,45,85,125,165,205,245,0,0,0
  210. 1630 [131]1,41,81,121,161,201,241,82,123,164,5,45,85,125,165,205,245,0,0,0
  211. 1640 [131]3,2,41,81,121,161,201,242,243,244,205,165,125,85,45,4,0,0,0,0
  212. 1650 [131]1,41,81,121,161,201,241,2,3,4,45,85,124,123,122,0,0,0,0,0
  213. 1660 [131]3,2,41,81,121,161,201,242,243,244,205,165,125,85,45,4,203,285,0,0
  214. 1670 [131]1,41,81,121,161,201,241,2,3,4,45,85,124,123,122,163,204,245,0,0
  215. 1680 [131]45,4,3,2,41,81,122,123,124,165,205,244,243,242,201,0,0,0,0,0
  216. 1690 [131]3,43,83,123,163,203,243,1,2,4,5,0,0,0,0,0,0,0,0,0
  217. 1700 [131]1,41,81,121,161,201,242,243,244,205,165,125,85,45,5,0,0,0,0,0
  218. 1710 [131]1,41,81,121,161,202,243,204,165,125,85,45,5,0,0,0,0,0,0,0
  219. 1720 [131]1,41,81,121,161,201,241,202,163,204,245,205,165,125,85,45,5,0,0,0
  220. 1730 [131]1,41,82,123,164,205,245,5,45,84,123,162,201,241,0,0,0,0,0,0
  221. 1740 [131]1,41,82,123,5,45,84,163,203,243,0,0,0,0,0,0,0,0,0,0
  222. 1750 [131]1,2,3,4,5,45,84,123,162,201,241,242,243,244,245,0,0,0,0,0
  223. 1760 [131]43,83,123,163,203,121,122,124,125,0
  224. 1770 [131]121,122,123,124,125,0,0,0,0,0
  225. 1780 [131]41,82,123,164,205,45,84,162,201,0
  226. 1790 [131]1,2,3,4,5,6,7,8
  227. 1800 [131]281,241,201,161,121,81,41,1,2,3,4,5,6,7,8
  228. 2000 [131]1,41,81,121,161,201,202,203,204,205,206,207,167,127,87,47,7,6,5,4,3,2
  229. 2005 [131]0,0,0
  230. 2010 [131]4,43,82,121,160,199,200,201,202,203,204,205,206,207,208,209,168,127
  231. 2015 [131]86,45,0,0,0,0,0
  232. 2020 [131]40,80,120,160,161,162,163,164,165,166,167,168,128,88,48,47,46,45,44,43
  233. 2025 [131]42,41,0,0,0
  234. 2030 [131]4,43,82,121,160,201,242,283,324,285,246,207,168,127,86,45,0,0,0,0,0,0
  235. 2035 [131]0,0,0
  236. 2040 [131]84,43,2,1,40,80,120,160,201,242,283,324,45,6,7,48,88,128,168,207,246
  237. 2045 [131]285,0,0,0
  238. 2050 [131]156,157,158,159,160,161,162,163,164,165,166,167,168,169,170,171,172,0,0
  239. 2055 [131]0,0,0,0,0,0
  240. 2060 [131]364,324,284,244,204,164,124,84,44,160,121,82,43,4,45,86,127,168,0,0,0,0
  241. 2065 [131]0,0,0
  242. 2070 [131]4,3,43,83,82,81,121,161,162,163,203,243,244,245,205,165,166,167,127,87
  243. 2075 [131]86,85,45,5,4
  244. 2080 [131]4,43,82,121,160,199,240,281,322,323,324,325,326,287,248,209,168,127,86
  245. 2085 [131]45,0,0,0,0,0
  246. 2090 [131]3,2,1,40,80,120,161,162,163,164,165,166,127,87,47,6,5,4,0,0,0,0,0,0,0
  247. 2100 [131]4,3,42,82,122,163,164,165,126,86,46,5,0,0,0,0,0,0,0,0,0,0,0,0,0
  248. 2110 [131]4,3,2,41,80,119,158,199,240,281,322,323,324,325,326,287,248,209,170
  249. 2115 [131]129,88,47,6,5,0
  250. 2120 [131]4,3,2,41,80,119,159,199,239,280,321,362,363,364,365,326,287,248,208
  251. 2125 [131]168,128,87,46,5,4
  252. 2500 [131]"  SQUARE"," TRIANGLE"," RECTANGLE","  DIAMOND","   HEART","   LINE"
  253. 2510 [131]"   ARROW","   CROSS"," PENTAGON","   OVAL","  CIRCLE","  HEXAGON"
  254. 2520 [131]"  OCTAGON"
  255. 4000 [153]"LOAD"[199](14)[166]6)[199](14)"ON****** STR$(null)(null)CLOSE(null)ATN(null)LEFT$CLOSE(null)VAL(null)(null) ******"
  256. 4050 [153]"<F1> ADDITION LEVEL 1":[153]"<F2> ADDITION LEVEL 2
  257. 4060 PRINT"<F3> SUBTRACTION LEVEL 1":PRINT"<F4> SUBTRACTION LEVEL 2
  258. 4070 [153]"<F5> MULTIPLICATION LEVEL 1":[153]"<F6> MULTIPLICATION LEVEL 2
  259. 4080 PRINT"<F7> DIVISION LEVEL 1":PRINT"<F8> DIVISION LEVEL 2
  260. 4084 [153]"<CRSR ^> MOVE ANSWER CURSOR LEFT
  261. 4088 PRINT"<CRSR _> MOVE ANSWER CURSOR RIGHT
  262. 4090 [153]"<SPACE BAR> ERASE A NUMBER
  263. 4095 PRINT"<RETURN> ENTER YOUR ANSWER
  264. 4096 [153]"<^> RETURN TO THE DOT MATH MENU
  265. 4100 PRINT"<_> RETURN TO THE MAIN MENU[145][145][145][145]"
  266. 4110 GETA$:GOSUB9300:IFA$=""THEN4110
  267. 4120 FORX=0TO2:A$(X)="":NEXT:IFA$=CHR$(95)THEN20
  268. 4130 IFA$=CHR$(94)ORA$=CHR$(222)THEN4000
  269. 4140 C=ASC(A$):IFC<133ORC>140THEN4110
  270. 4145 PRINT"[147]"
  271. 4150 PRINTCHR$(142):CT=0:C=C-132:ONCGOTO4200,4400,4600,4800,4210,4410,4610,4810
  272. 4200 L1=10:L2=10:O=1:OP=15:GOTO4220
  273. 4210 L1=100:L2=100:O=1:OP=15
  274. 4220 GOSUB7000:N3=N1+N2
  275. 4230 N3$=STR$(N3):GOTO7010
  276. 4400 L1=10:L2=10:O=2:OP=15:GOTO4420
  277. 4410 L1=100:L2=100:O=2:OP=15
  278. 4420 GOSUB7000:N3=N1-N2:IFN3<0THEN4420
  279. 4430 N3$=STR$(N3):GOTO7010
  280. 4600 L1=10:L2=10:O=3:OP=15:GOTO4620
  281. 4610 L1=50:L2=50:O=3:OP=15
  282. 4620 GOSUB7000:N3=N1*N2:IFN3>999THEN4620
  283. 4630 N3$=STR$(N3):GOTO7010
  284. 4800 L1=10:L2=82:O=4:OP=0:GOTO4820
  285. 4810 L1=20:L2=100:O=4:OP=0
  286. 4820 GOSUB7000:IFN1=0THEN4820
  287. 4825 IFN2/N1<>INT(N2/N1)OR(C=4ANDN2/N1>9)ORN2/N1=0THEN4820
  288. 4830 N3=N2/N1:N3$=STR$(N3):GOTO7010
  289. 5000 PRINT"[147]"CHR$(14)" ********** [193][160][204][160][208][160][200][160][193][160][196][160][207][160][212][160]*********** "
  290. 5010 PRINTSPC(18)"BY"
  291. 5020 PRINTSPC(14)"[194]OB [194]AXTER"
  292. 5030 PRINT"   [193]LPHADOT IS A FUN AND UNIQUE PROGRAM
  293. 5040 [153]" BASED ON THE DOT AS A SPELLING, MATH,
  294. 5050 PRINT" DRAWING, AND SHAPE RECOGNITION TOOL.
  295. 5060 [153]"   ATNN OPTION IS ALSO PROVIDED TO SELECT
  296. 5070 PRINT" ANY OF 65536 DOT, TEXT, BACKGROUND,
  297. 5080 [153]" AND BORDER COMBINATIONS USING THE
  298. 5090 PRINT" SPECIAL FUNCTION KEYS ON THE RIGHT.
  299. 5100 [153]"   VALACH OPTION IN THE PROGRAM CONTAINS
  300. 5110 PRINT" COMPLETE INSTRUCTIONS.
  301. 5120 [151]214,22:[153]:[153][166]12)"  (null)(null)VALATN(null)VALCLOSE(null)ATNRIGHT$(null)  WAIT":[142]
  302. 5200 [153]"LOAD ******** (null)VAL(null)(null)VAL(null)(null)CLOSEATN(null)STR$CLOSE(null)(null)(null)PEEKVAL(null)(null)CLOSE*********
  303. 5210 PRINT"  [204]ETTERS AND NUMBERS PROVIDE "CHR$(34)"FLASH-
  304. 5220 [153]" CARD"[199](34)" TYPE PRACTICE WITH UPPER AND
  305. 5230 PRINT" LOWER CASE LETTERS AS WELL AS NUMBERS.
  306. 5240 [153]" (null)HE CHARACTERS ARE "[199](34)"DRAWN"[199](34)" ON THE
  307. 5250 PRINT" SCREEN WITH DOTS IN THE SAME WAY THEY
  308. 5260 [153]" WOULD BE DRAWN ON PAPER USING A PENCIL.
  309. 5270 PRINT" [145][208]RESSING LETTER KEYS GIVE LOWER CASE
  310. 5280 [153]" LETTERS, PRESSING <(null)LEFT$RIGHT$ASC(null)> WITH THE
  311. 5290 PRINT" LETTERS FORM UPPER CASE LETTERS.
  312. 5300 [153]" (null)UMBERS ARE PROVIDED IN EITHER THE
  313. 5310 PRINT" UPPER OR LOWER CASE MODE.
  314. 5320 [153]"  (null)RESSING THE <(null)(null)ATNLENVAL PEEKATN(null)> PROVIDES
  315. 5330 PRINT" RANDOM UPPER AND LOWER CASE LETTERS
  316. 5340 [153]" AND NUMBERS THAT CAN BE USED LIKE
  317. 5350 PRINT" FLASHCARDS.
  318. 5360 [141]6100:[141]6000:[142]
  319. 5400 [153]"LOAD ********** (null)(null)VAL(null)(null)CLOSE(null)RIGHT$(null)LEFT$CLOSESTR$(null)(null)(null)CLOSE***********
  320. 5410 PRINT"  [211]PELL WITH DOTS PROVIDES SPELLING AND
  321. 5420 [153]" WRITING PRACTICE USING THE DOT FORMED
  322. 5430 PRINT" LETTERS AND NUMBERS IN A SIX COLUMN
  323. 5440 [153]" ACROSS BY THREE ROW DOWN MATRIX.
  324. 5450 PRINT" [215]RITING BEGINS IN THE UPPER LEFT HAND
  325. 5460 [153]" CORNER.
  326. 5470 PRINT"  [208]RESSING THE <[211][208][193][195][197][160][194][193][210]> INSERTS A
  327. 5480 [153]" SPACE BETWEEN LETTERS. (null)RESSING
  328. 5490 PRINT" <[195][204][210] [200][207][205][197]> ERASES THE SCREEN AND
  329. 5500 [153]" STARTS YOU AGAIN IN THE UPPER LEFT
  330. 5510 PRINT" HAND CORNER. [212]YPING BEYOND THE LAST
  331. 5520 [153]" CHARACTER IN ROW THREE AUTOMATICALLY
  332. 5530 PRINT" ERASES THE SCREEN AND STARTS YOU OVER.
  333. 5540 [141]6100:[141]6000:[142]
  334. 5600 [153]"LOAD *************** (null)LEFT$ATN(null)VAL(null) ***************
  335. 5610 PRINT"  [211]HAPES IS A SET OF PREPROGRAMED
  336. 5620 [153]" SHAPES DRAWN WITH DOTS.
  337. 5630 PRINT"  [210]ANDOM SHAPES CAN BE CALLED BY
  338. 5640 [153]" PRESSING <(null)(null)ATNLENVALCLOSEPEEKATN(null)>,CLOSEOR INDIVIDUAL
  339. 5650 PRINT" SHAPES CAN BE CALLED BY PRESSING THE
  340. 5660 [153]" APPROPRIATE KEY.
  341. 5670 PRINT"  [212]HE MENU FOR THE INDIVIDUAL SHAPES
  342. 5680 [153]" CAN BE CALLED BY PRESSING THE <^> KEY.
  343. 5690 GOSUB6100:GOSUB6000:RETURN
  344. 5700 PRINT"[147] ************ [196][207][212][160][196][210][193][215][201][206][199][160][160]************
  345. 5710 [153]"  STR$OT DRAWING IS A DRAWING ROUTINE
  346. 5720 PRINT" WHICH USES A JOYSTICK TO DRAW PICTURES
  347. 5730 [153]" WITH DOTS. (null)HEN HELD DOWN THE <FIRE
  348. 5740 PRINT" BUTTON> ON THE JOYSTICK ERASES EXIST-
  349. 5750 [153]" ING DOTS IN IT'S PATH AND PREVENTS THE
  350. 5760 PRINT" DOTS FROM BEING DRAWN AS THE "CHR$(34)"CURSOR"CHR$(34)
  351. 5770 PRINT" MOVES ACROSS THE SCREEN.
  352. 5780 [153]"  (null)LUG THE JOYSTICK INTO CONTROL PORT 2.
  353. 5790 GOSUB6100:GOSUB6000:RETURN
  354. 5800 PRINT"[147] ************** [196][207][212] [205][193][212][200][160]**************
  355. 5810 [153]"  STR$OT MATH IS AN ARITHMETIC PROGRAM DE-
  356. 5820 PRINT" SIGNED TO PROVIDE PRACTICE IN ADDITION,
  357. 5830 [153]"ON SUBTRACTION, MULTIPLICATION, AND
  358. 5840 PRINT" DIVISION. [212]WO LEVELS OF DIFFICULTY
  359. 5850 [153]" ARE AVAILABLE FOR EACH OPERATION. (null)HE
  360. 5860 PRINT" FUNCTION KEYS ON THE RIGHT SELECT THE
  361. 5870 [153]" OPTIONS.
  362. 5890 PRINT"  <F1> LEVEL 1, <F2> LEVEL 2 - [193]DD
  363. 5900 [153]"  <F3> LEVEL 1, <F4> LEVEL 2 - (null)UBTRACT
  364. 5910 PRINT"  <F5> LEVEL 1, <F6> LEVEL 2 - [205]ULTIPLY
  365. 5920 [153]"  <F7> LEVEL 1, <F8> LEVEL 2 - STR$IVIDE
  366. 5930 GOSUB6100:GOSUB6000:RETURN
  367. 6000 POKE214,22:PRINT:PRINT"      [208][210][197][211][211][160][211][208][193][195][197][160][194][193][210][160][212][207][160][195][207][206][212][201][206][213][197][160][160][146]
  368. 6010 [161]B$
  369. 6020 [139]B$[178][199](32)[176]B$[178][199](160)[167][142]
  370. 6030 [137]6010
  371. 6100 [153]"  (null)RESS <_> TO RETURN TO THE MAIN MENU.":[142]
  372. 7000 N1[178][181](L1[172][187](1)):N2[178][181](L2[172][187](1)):N1$[178][196](N1):N2$[178][196](N2):[142]
  373. 7010 C1[178][195](N1$)[171]1:C2[178][195](N2$)[171]1:C3[178][195](N3$)[171]1
  374. 7020 [129]X[178]1[164]C1[170]1:N1(X)[178][198]([202](N1$,X,1)):[130]
  375. 7030 [129]X[178]1[164]C2[170]1:N2(X)[178][198]([202](N2$,X,1)):[130]
  376. 7040 [129]X[178]1[164]C3[170]1:N3(X)[178][198]([202](N3$,X,1)):[130]
  377. 7100 [153]"LOAD":[145]C1[137]7110,7118
  378. 7110 SG[178]19:S[178]28:[139]O[178]4[167]S[178]453:LE%[178]20[172](N1(2)[171]48):[141]8000:[137]8200
  379. 7115 LE%[178]20[172](N1(2)[171]48):[141]8000:[137]7122
  380. 7118 SG[178]19:S[178]21:[139]O[178]4[167]S[178]446:LE%[178]20[172](N1(2)[171]48):[141]8000:[137]7120
  381. 7119 LE%[178]20[172](N1(2)[171]48):[141]8000:S[178]28:LE%[178]20[172](N1(3)[171]48):[141]8000:[137]7122
  382. 7120 SG[178]19:S[178]453:LE%[178]20[172](N1(3)[171]48):[141]8000:[137]8200
  383. 7122 [139]C1[179]2[175]C2[179]2[167]S[178]341:[137]7125
  384. 7123 S[178]334
  385. 7125 SG[178]9:[145]O[137]7126,7127,7128
  386. 7126 LE%[178]1240:[141]8000:[137]7130
  387. 7127 LE%[178]1250:[141]8000:[137]7130
  388. 7128 LE%[178]1260:[141]8000:[137]7130
  389. 7130 [145]C2[137]7140,7150
  390. 7140 SG[178]19:S[178]348::[139]O[178]4[167]S[178]461
  391. 7145 LE%[178]20[172](N2(2)[171]48):[141]8000:[137]7160
  392. 7150 SG[178]19:S[178]341:[139]O[178]4[167]S[178]461
  393. 7155 LE%[178]20[172](N2(2)[171]48):[141]8000:S[178]S[170]7:LE%[178]20[172](N2(3)[171]48):[141]8000
  394. 7160 [139]O[179][177]4[167][145]C3[141]8100,8110,8120:[137]8500
  395. 7170 [137]8500
  396. 8000 L[178]LE%[170]SG:[129]X[178]LE%[164]L:[139]N(LE%)[178]0[167]LE%[178]L:[130]:[141]9500:[142]
  397. 8010 [151]55295[170]S[170]N(LE%),DT:[151]1023[170]S[170]N(LE%),81:[141]9000:LE%[178]LE%[170]1:[130]
  398. 8020 [141]9500:[142]
  399. 8050 [129]X[178]0[164]240[169]40:[129]Y[178]1023[170]S[170]X[164]1023[170]S[170]X[170]5:[151]Y,32:[130]Y,X:[142]
  400. 8060 S[178]694:[139]O[178]4[167]S[178]94
  401. 8070 [129]Z[178]1[164]3:[141]8050:S[178]S[170]7:[130]Z:[142]
  402. 8100 [139]C1[179][177]2[175]C2[179][177]2[167]SG[178]6:S[178]627:LE%[178]1270:[141]8000:[142]
  403. 8110 [139]C3[179][177]3[167]SG[178]6:S[178]620:LE%[178]1270:[141]8000:S[178]627:LE%[178]1270:[141]8000:[142]
  404. 8120 SG[178]6:S[178]613:LE%[178]1270:[141]8000:S[178]620:LE%[178]1270:[141]8000:S[178]627:LE%[178]1270
  405. 8130 [141]8000:[142]
  406. 8200 SG[178]14:S[178]419:LE%[178]1278:[141]8000:[139]C2[178]2[167]SG[178]6:S[178]427:LE%[178]1270:[141]8000
  407. 8210 [137]7130
  408. 8500 A[178]0:SP[178]27:S[178]708:[139]O[178]4[167]SP[178]20:S[178]20:A[178]1:[139]C3[178]1[175]C2[178]2[167]SP[178]27:S[178]27:A[178]0
  409. 8510 [161]A$:[139]A$[178]""[167]A$[178][199](0)
  410. 8515 [139][198](A$)[177]47[175][198](A$)[179]58[167]A$(A)[178]A$:[141]8610
  411. 8520 [139][198](A$)[177]32[175][198](A$)[179]42[167]A$(A)[178]A$:[141]8600
  412. 8530 [141]8900
  413. 8535 [139]A$[178][199](95)[167]20
  414. 8540 [139]A$[178][199](13)[176]A$[178][199](141)[167]8700
  415. 8545 [139]A$[178][199](94)[176]A$[178][199](222)[167]4000
  416. 8550 [137]8510
  417. 8600 A$(A)[178][199]([198](A$(A))[170]16):[137]8610
  418. 8610 SG[178]19:LE%[178]20[172]([198](A$(A))[171]48)
  419. 8615 [139]A[178]0[175]O[179][177]4[167]S[178]708:[141]8050:[141]8000:[142]
  420. 8617 [139]A[178]0[175]O[178]4[167]S[178]108:[141]8050:[141]8000:[142]
  421. 8620 [139]A[178]1[175]O[179][177]4[167]S[178]701:[141]8050:[141]8000:[142]
  422. 8625 [139]A[178]1[175]O[178]4[167]S[178]101:[141]8050:[141]8000:[142]
  423. 8630 S[178]694:[139]O[178]4[167]S[178]94
  424. 8635 [141]8050:[141]8000:[142]
  425. 8700 A(4)[178][197](A$(2)[170]A$(1)[170]A$(0)):[139]A(4)[178]N3[167]8750
  426. 8705 [139]CT[178]2[167]8760
  427. 8710 [151]214,17:[153]:[153]"    SORRY!  WAIT":[153]"  TRY AGAIN WAIT":[141]9100
  428. 8720 [129]X[178]1[164]2000:[130]:[151]214,17:[153]:[129]X[178]1[164]2:[129]Y[178]1[164]12:[153][199](32);
  429. 8730 [130]Y:[153]:[130]X:CT[178]CT[170]1:[141]9120:[137]8510
  430. 8750 [153]""[163]41)"  VERY GOOD! ":[141]9400
  431. 8755 [151]214,1:[153]:[153]"  TRY ANOTHER WAIT":[137]4110
  432. 8760 [151]214,3:[153]:[153]"  THAT IS YOUR WAIT":[153]"   THIRD TRY   WAIT"
  433. 8765 [141]9100:[129]X[178]1[164]2000:[130]:[141]9120
  434. 8770 [151]214,18:[153]:[139]O[178]4[167][151]214,3:[153]
  435. 8772 [153]"  THE CORRECT  ":[153]"   ANSWER IS:  "
  436. 8775 [145]C3[137]8780,8785,8790
  437. 8780 N$[178][199](N3(2)):LE%[178]20[172]([198](N$)[171]48):SG[178]19:[141]8060:S[178]708:[139]O[178]4[167]S[178]101
  438. 8781 [139]O[178]4[175]C3[178]1[175]C2[178]2[167]S[178]108
  439. 8782 [141]8000:[137]8755
  440. 8785 N$[178][199](N3(2)):LE%[178]20[172]([198](N$)[171]48):SG[178]19:[141]8060:S[178]701:[139]O[178]4[167]S[178]101
  441. 8786 [141]8000
  442. 8787 N$[178][199](N3(3)):LE%[178]20[172]([198](N$)[171]48):SG[178]19:S[178]708:[139]O[178]4[167]S[178]108
  443. 8788 [141]8000:[137]8755
  444. 8790 N$[178][199](N3(2)):LE%[178]20[172]([198](N$)[171]48):SG[178]19:[141]8060:S[178]694:[141]8000
  445. 8792 N$[178][199](N3(3)):LE%[178]20[172]([198](N$)[171]48):SG[178]19:S[178]701:[141]8000
  446. 8794 N$[178][199](N3(4)):LE%[178]20[172]([198](N$)[171]48):SG[178]19:S[178]708:[141]8000:[137]8755
  447. 8900 [139]A$[178]""[176]A$[178]"ON"[167]SP[178]SP[171]7:A[178]A[170]1:S[178]S[171]7:[139]SP[178]6[167]SP[178]13:A[178]2:S[178]694
  448. 8907 [139]A$[178][199](32)[176]A$[178][199](160)[167][141]8050:A$(A)[178]""
  449. 8910 [139]A$[178]""[176]A$[178]"CMD"[167]SP[178]SP[170]7:A[178]A[171]1:S[178]S[170]7:[139]SP[178]34[167]SP[178]27:A[178]0:S[178]708
  450. 8915 [151]214,OP:[153]
  451. 8920 [153][166]SP)"(null)(null)(null)(null)(null)(null)(null)":[129]X[178]1[164]7:[141]9200:[153][166]SP)"(null)(null)":[130]
  452. 8930 [153][166]SP)"(null)(null)(null)(null)(null)(null)(null)ON":[129]X[178]1[164]50:[130]
  453. 8935 [151]214,OP:[153]:[153][166]SP)"       "
  454. 8940 [129]X[178]1[164]7:[153][166]SP)"  ":[130]:[153][166]SP)"       ON":[142]
  455. 9000 [151]SO,75:[151]SO[170]1,34:[151]SO[170]5,17:[151]SO[170]6,129:[151]SO[170]4,129:[151]SO[170]4,128
  456. 9010 [142]
  457. 9100 [151]SO,75:[151]SO[170]1,2:[151]SO[170]5,17:[151]SO[170]6,129:[151]SO[170]4,33
  458. 9110 [142]
  459. 9120 [151]SO[170]4,32:[142]
  460. 9200 [151]SO,75:[151]SO[170]1,255[172][187](1):[151]SO[170]5,17:[151]SO[170]6,129:[151]SO[170]4,17
  461. 9210 [151]SO[170]4,16:[142]
  462. 9300 [151]SO,75:[151]SO[170]1,50[172][187](1)[170]50:[151]SO[170]5,17:[151]SO[170]6,129:[151]SO[170]4,17
  463. 9310 [129]X[178]1[164]50:[130]:[151]SO[170]4,16:[142]
  464. 9400 [151]SO,75:[151]SO[170]1,10:[151]SO[170]5,17:[151]SO[170]6,129:[151]SO[170]4,33
  465. 9410 [129]X[178]1[164]200:[130]:[151]SO[170]1,20:[129]X[178]1[164]2000:[130]:[142]
  466. 9500 [151]SO,30:[151]SO[170]1,134:[151]SO[170]5,48:[151]SO[170]6,129:[151]SO[170]4,17:[129]X[178]1[164]150
  467. 9510 [130]:[151]SO[170]4,16:[129]X[178]1[164]20:[130]:[142]
  468.